home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / vclock.src < prev    next >
Text File  |  1991-10-19  |  2KB  |  52 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ VCLOCK, by Steve VanDevender
  3. DIR
  4.   SXWATCH
  5.     \<< PICT RCL RCLF
  6. PICT PURGE DEG -40
  7. CF PICT { # 22h
  8. # 0h } face REPL {
  9. # 0h # 0h } PVIEW
  10. TIME DUP hands at {
  11.       \<<
  12.         IFERR DROP2
  13. hands TIME DUP
  14. hands 0 WAIT
  15.         THEN
  16.         END rest
  17.       \>> 491520 } +
  18. STOALARM DROP
  19.       IFERR 0 WAIT
  20.       THEN
  21.       END rest
  22.     \>>
  23.   hands
  24.     \<< { # 41h # 1Fh
  25. } DUP2 30 ROT FP 2
  26. TRNC 600 * a\->p
  27. TLINE 15 ROT HMS\->
  28. 30 * a\->p TLINE
  29.     \>>
  30.   a\->p
  31.     \<< DUP2 SIN * 65
  32. + R\->B ROT ROT COS *
  33. 31 SWAP - R\->B 2
  34. \->LIST
  35.     \>>
  36.   at
  37.     \<< DATE .01 TIME
  38. HMS+ 2 TRNC
  39.       IF DUP 24 \>=
  40.       THEN DROP 1
  41. DATE+ 0
  42.       END 2 \->LIST
  43.     \>>
  44.   rest
  45.     \<< at FINDALARM
  46. DELALARM DROP2 STOF
  47. TEXT PICT STO
  48.     \>>
  49.   face
  50. GROB 63 63 000000CFF100000000000C3C1E1000000000830800E00000000060214203000000081400001C0000000C8003708810000002100240042000008100027000C0000044330210C011000020220770800200001122000080440008002200008008000840770000C10900040000000000001002100000000004200300000000000060050000000000005080320000000083808025000000000280422500000000832140250000000080014072000000008301210000000000004220000000000000022000000000000002A0000000000000821000000000000004100000000000000490000000000000841C10000000000C143410000C100000167C10000C10000C173010000C100000161C10000000000C14900000000000008410000000000000041000000000000004A000000000000082200000EAF3000002200000F2C7000002210000718700004240E000777700820140A000755700820142E000757700832180A000F09700028080E000F9C7000280050000EBE30000500300000000000060021000000000042004000000000000100840C10000C1090008000100004008000011800000C1440000204008100102000044400400C111000081000C1000C0000002100410042000000C800C1088100000081400001C000000006021420300000000830800E0000000000C3C1E100000000000CFF1000000
  51. END
  52.